-- set the movieFile of cd mov "ireland" to gPathVideo&"Montage.mov"
-- pause movie "IVNPromo"
-- prepare cd movie "ireland"
-- play cd movie "ireland"
--end mouseDown
-- +BUT
MINFO
button id 77SCRP
on mouseUp
pause movie "Ireland"
pause movie "IVNPromo"
go cd 3
end mouseUp
OINFO
E X I TSCRP
on mouseUp
global gWindows
if gWindows then
visual effect Dissolve
else
visual effect pixelDissolve
end if
go to card "ivnexit"
end mouseUp
lobal gWinPALT
PINFO
mCARD
Palette id 80data
QINFO
300, dummy
timer id 81SCRP
on timerexpired
global gPathVideo
flipBits
set the movieFile of cd mov "ireland" to gPathVideo&"Montage.mov"
play cd mov "ireland"
end timerexpired
expir+BUT
=INFO
button id 61SCRP
on mouseWithin
flipbits
end mouseWithin
QXY78
e7j88::V
88eXY
I R E L A N DTAIL
N O W V O Y A G E RTAIL
on openStack
global gPathVideo, gPathAudio, gCursorNormal
setPaths
set the fullscreen to true
set the centeredwindow to true
hide the menubar
hide the toolbar
set cursor to gCursorNormal
hide titlebar
--start cd timer 1 expire in 1 tick
end openStack
on closeStack
--stop cd mov "ireland" of cd id 2
release cd mov "ireland" of cd id 2
--stop bg snd 1
end closeStack
on flipBits
global FLIPTOX, FLIPTOY, MOUSECLICKED, XX, YY
put 160 into XX
put 120 into YY
repeat with x = 1 to (the number of bitmaps)
getFlip
set the loc of cd bitmap x to FLIPTOX, FLIPTOY
end repeat
end flipBits
on getFlip
global FLIPTOX, FLIPTOY, XX, YY
put ((random (3)) * XX) into FLIPTOX
put ((random (3)) * YY) into FLIPTOY
end getFlip
function curDir
put the long name of this stack into sN
delete word 1 of sN
delete char 1 of sN
put 1 into off
put length(sN)-1 into sL
if the platform = "Macintosh" then put ":" into pathSep
else put "\" into pathSep
repeat forever
get offset(pathSep, char off to sL of sN)
if it
0 then add it to off
else exit repeat
end repeat
return char 1 to off-1 of sN
end curDir
on setPaths
global gWindows
put the platform = "Windows" into gWindows
global gPath, gPathAudio, gPathVideo
put curDir() into gPath
put gPath&"Audio" into gPathAudio
put gPath&"Video" into gPathVideo
if gWindows then
put "\" after gPathAudio
put "\" after gPathVideo
else
put ":" after gPathAudio
put ":" after gPathVideo
end if
end setPaths
PFONT
45 HELVETICA LIGHT
46 HELVETICA LIGHTITALIC
65 HELVETICA MEDIUM
66 HELVETICA MEDIUMITALIC
85 HELVETICA HEAVY
86 HELVETICA HEAVYITALIC
ACASLON BOLD
ACASLON BOLDITALIC5
ACASLON ITALIC
ACASLON REGULAR
AMERICAN HERITAGEG
APPLE CHANCERY
ARIAL
ARIAL NARROW%
ARIAL ROUNDED MT BOLD
ATHENS&
AVANT GARDE
B BAUERBODONI BOLD
B COURIER BOLD
B FRUTIGER BOLD
B FUTURA BOLD
B HELVETICA BOLD
B ORCGARAM BOLD
B TIMES BOLD
BAUERBODONI
BAUERBODONI BLACKG
BAUERBODONI BLACKCOND
BAUERBODONI BLACKITALIC
BAUERBODONI BOLDCOND=
BAUHAUS 93
BI BAUERBODONI BOLDITALIC
BI COURIER BOLDOBLIQUE
BI FRUTIGER BOLDITALIC
BI HELVETICA BOLDOBLIQUE
BI TIMES BOLDITALIC
BK AVENIR BOOK
BKO AVENIR BOOKOBLIQUE,
BL AVENIR BLACK
BLO AVENIR BLACKOBLIQUE
BO FUTURA BOLDOBLIQUE
BODONI BD BT
BODONI BDIT BT
BODONI BOLDCONDENSED
BODONI BT
BODONI IT BT
BOOK ANTIQUA
BOOKMAN
BOOKMAN OLD STYLE
BOOKMAN OLD STYLE BOLD
BRAGGADOCIO
BRITANNIC BOLD
BRUSH SCRIPT
BRUSH SCRIPT MT
C FRANKLINGOTHIC CONDENSED
C FUTURA CONDENSED,
C HELVETICA CONDENSED
CAIROG
CB FUTURA CONDENSEDBOLD
CB HELVETICA CONDENSED BOLD
CBI HELVETICA CONDENSED BOLDOBL
CBO FUTURA CONDBOLDOBLIQUE
CENTURY GOTHIC
CENTURY SCHOOLBOOK
CHICAGO
CI HELVETICA CONDENSED OBLIQUE
CL FUTURA CONDENSEDLIGHT
CL HELVETICA CONDENSED LIGHT
CLB HELVETICA CONDENSED BLACK%
CLBI HELVETICA CONDENSED BLACKO
CLI HELVETICA CONDENSED LIGHTOB
CLO FUTURA CONDLIGHTOBLIQUE
CO FUTURA CONDENSEDOBLIQUE
COLONNA MT
COMMERCIALPI BT
COURIER
COURIER NEW
CXB FUTURA CONDEXTRABOLD
CXBO FUTURA CONDEXTRABOLDOBLIQU
DELPHIAN
DESDEMONA
ESPY SANS
ESPY SANS BOLD
ESPY SERIF
ESPY SERIF BOLD
FIXEDSYS
FOOTLIGHT MT LIGHT
FUTURA
FUTURA BD BT,
FUTURA BDIT BT
FUTURA BK BT
FUTURA BKIT BT
FUTURA BOOK
FUTURA MD BT
FUTURA MDIT BT
GARAMOND NARROW
GENEVA
GENEVA
GILLSANS
GILLSANS BOLD
GILLSANS BOLDITALIC
GILLSANS ITALIC
GOUDY TEXT MT
H FUTURA HEAVY
HELVETICA
HELVETICA BLACK
HELVETICA COMPRESSED
HO FUTURA HEAVYOBLIQUE
HOEFLER
HOEFLER ORNAMENTS
I BAUERBODONI ITALIC
I COURIER OBLIQUE
I FRUTIGER ITALIC
I HELVETICA OBLIQUE
I ORCGARAM LIGHTITALIC
I TIMES ITALIC
IMPACT
IMPRESS BT
KINO MT
L FRUTIGER LIGHT
L FUTURA LIGHT
LETTER GOTHIC
LI FRUTIGER LIGHTITALIC
LITHOS BOLD
LO FUTURA LIGHTOBLIQUE
LONDON
LOS ANGELES
LUBALIN GRAPH
LUCIDA BRIGHT
M AVENIR MEDIUM
MACHINE
MATURA MT SCRIPT CAPITALSG
MISTRAL
MO AVENIR MEDIUMOBLIQUE
MOBILE
MONACO
MONOTYPE CORSIVA
MONOTYPE SORTS
MS LINEDRAW
MS SERIF
MT EXTRA
N HELVETICA NARROW
NADIANNE
NEW CENTURY SCHLBK
NEW YORK
O FUTURA BOOKOBLIQUE
O FUTURA OBLIQUE
OCR-A;
OLD ENGLISH TEXT
ORCGARAM
OXFORD
PALATINO,
PLAYBILL
PROFONT
QUICKTYPE
QUICKTYPE CONDENSED
QUICKTYPE MONO
QUICKTYPE PI
R 2MODFRUTIGER ROMAN
R FRUTIGER ROMAN
SAN FRANCISCOG
SMALL FONTS
STENCIL
SWING
SYMBOL
TAXTYPE
TAXTYPE MONO
TAXTYPE PI
TAXTYPECONDENSED
TEKTON
TIMES
TIMES NEW ROMAN
TORONTO
TRADEGOTHIC-BOLDCONDTWENTY
TRADEGOTHIC-BOLDCONDTWENTYOBL
VENICE
VIVALDI
WIDE LATIN
WINGDINGS
XB FUTURA EXTRABOLD
XBO FUTURA EXTRABOLDOBLIQUE
ZAPF CHANCERY
ZAPF DINGBATS
ZAPFHUMNST BD BT
ZAPFHUMNST BDIT BT
ZAPFHUMNST BTG
ZAPFHUMNST IT BT
ZAPFHUMNST ULT BTG
ZAPFHUMNST ULTIT BT
ivnexitSCRP
on openCard
put "I N T E R N E T" into bg fld 1
put "T E L E V I S I O N" into bg fld 2
wait 3 seconds
global gPomoPath
lock screen
go gPomoPath
end openCard
bitmap id 3SCRP
on mouseUp
go cd 1
end mouseUp
,+,+,
,+,+,
,+,+,
,+,+,
,+,+,
,+,+,
,+,+,
,,%+,
,+,,,
,+,,,
,+,,,
,+,,,
,+,,,
,+,,,
,,+,+
,,+,,
+,+,,
+,+,+
+,+,+,
,+,+%,,,
,,++,
,%,++,
,,+,+
,+%,+,
,
+,,+#
,+,+,+,++
++,%,
,+,+,,
,+,+,
,+,+,,,
,+,+,
,,++&,
,+,+,
,&++,
,,+,+,
+,++,+,
,,,,,+,,+,
,,+,+
,+,,,
,+&+,,
,++%,,
,,++,
,+,+,
,+,,,
,+,+,
,+&+,
,+,,+
,+,++&+,,+
++&++,
+**,
,+,,,
,++,,++,+&,+,
+++,,
,%++&
,,+,+,
,+&+,
,+,,,
,+,+,+,,
,++,,
%,,+%
,+,+,+
,+%,+
,+,%+,
,,+,+
,,+,%,+,+,
+,+,,,
,%,++
+,+&+,
,+,+,
,++,,+
+,+,+
,%+,%+,
,+,+,+,+
,+,+,
,,+,,
+,,+,,+&,,
+,+&+,+,++,,
,+%,+,+
+%,+,
,++,,
,+,+,
,+,,,
,+,+%,++,+
,+++,,
,++,,%,
,+%,+,+,+
,,+,+,
,+,+,,
,,+%,+
,%,%,++,+,,%+,+,
,+,+,
,+,+,%
,+,,,
,+,+,+,,
,+,+,
,+,,,
,,++,
,,,+,
,+,+,
,,+%,,+,
,+,+,,
,,%,+,
,+&+,
,+&++,+,
&+,+,
,+,+,
+,+,,
,+,++,
,+%,,
**,,*
,+,+,
,%,,,+
+&+,,+
%,+,+,
,,+%,+
,+,+,
,+,+,,++
,+,,%,,+
,+,,,+,
,,%,,
,+,++,,
,+,,,+,
,+,+&+,+
,+&+,,,+
,%,+,+,
++,+,
+,+,+
2+&+,
,,++,
,+&+,
&+,+,,
*,,$
,+,+,%,,
,+,+,
,+,+,
,+,+,
,+,+,,
,,+,,
++&,+,
,,+,,
+,+&+,
,,,+,+
+,,++,
,+,+,,,
,+,,,,+
,+%,,
""""#"
,+,+,
,,++,,
,++&+,+,
,,+%,+,
,+,+,
,,,%,+,,
,,+,,
,+,+,,%+,+,
+,+,,,
+,,+,+
,+,+,
+,,+%,,
,+,+,
,,,+,+,
,+,,,
,+&,++,
,+,,+,,,
+,+,+,+
,+,+,+
,,+,,,
,+,+&+,
+,,+,,
%+,%+
"",""
,,,+,
,,+,,+
+,+,+,
,,,++
,+,+,
""",$
"",""
-,"""
++" +
,&+,+,+
,%,+,+,
,+,+,,
,+,+,
,+++,
,+++,
,+&,+
,+,,+
,+,+,+,+,
,%,,+%
,+,+,
,+,+,
,,+,%,
,+,,+
,+&+,
+,%,+
++&+,
,+,%,+,
,,%,+,+
,+,++
,+,+,
,+,+%
+,+,,,
+,,+,%+
,,+,,
+&+,,
,+++,
,,+,+
+,+&+
,+&+,+,
+,+,+,
,+,+,
,+,+,
,+,+,+,
%,+,+
,%,+,,
,+,,+
,%,,%
,+,,+,
,+,+,%,+,
,++,,
,+,,,
,,+,+
,+,,+
,,++,
,+,+&,
,+,+,+&++,+
,+,%,
,++,+
,+,,,
,+,+&++,+,,
,+%,+,
++&+,,
,+%,++,+
,+,,++,,
,+,+,
,,,+,,,,+
,,+,+,,
+,+++&,,
+,&+,
+,++,
,,+,,
+,+%,+
%,+,,
+"+ ,
,,+,+
,+,+,
+,+,,
,++&+,,
9,+,,
,++,,
,+,+,+
+,++,,+
,+,+,%,+,
,+&,+,
,,+,,
,+,+,++
+,%,+
+,++,
++,%,
,,,+,
,+,,+
,,+,,+,&+,+,
,+&+,+
+,+,+
,++,,
,++,++
,,,++&,,
,+,,+
,%+%+
+,+,+,
,+,++,,
,+,,+,,+
,++,+,
,+&+,
,+%,+
,,,+,
7,+,,
,+,,,,
+,,+,,,
,,++,
,%,,%
,+,+,
,+,,,
&+,,+
,+++,
,+,%+
,+&+,
,,++,
,+,,,
,+%,+,,+,,
,,,+,
%,%++
+,%,+
,+&,+,
,,+&,+,
8+,,,,+
,,+,,+
,+,%,
,+,,,+,+,
,+,+,
,++,,
,+,++&+
,%,+,
%+,,+
,+,%,
,+,+,
,%+,+
,+,+,
,%,,,
,+,+,
"""""
,+&,+,,,++
,,,+,
,,+%,+
,+,+&+
,+,+,
,%+,,%,
,,%+,,
,+&+,
3,+,,
,,,+,
+,+,,%
,,+,+
,+,+,
,+,++
,,+,,
&+%+,
,+,+,+
%,+,,
,,++,
,+,+,,
,,++,
,,+,+,
,+,%,
++,%,+,
,+,,,,
,+&,+,
+,+,+,,
,+,+,
,%,+,+,
,+,+,
,+,+,
4,+,+,+
,+,+,
,,,+%,
,+,,+
,+,,+,
,,+,,+,+,
+,+,+,
,+,,,+
++%,+,
,+,%,+,
,&++,,
,+,+,+
,,,,,
,+,,+
+,,+,
,+,,+,+,,
,+,%,
,+,+,++,,
,++,,
+,+%,
%+,+,
+,+,+,
+,+&,+
,+,,,
,,,+,,+,
,+,,+
,,,+,+,
,,+,,
,%,+,,
,++,,+
+,+,,,,
+,+,,
,+,+,
1,+,,,,
,+,+,
&++,,
****""
/+,+,,
,+,%,
,+,,+
,+,+,
,+%,%
,,+,,
+,+,,+,%,
,+,%+,
,+,,+
+,+,,
++%+,%
-++,,,,
,+,,,
!,,"!
%,++,
%,%,+
,+%,+
,+,+,
,+,,,
,,,+,
+&++&
%+,+,
%,+,%
,,%+,%
,,,+,%,
,+,,+
,%+,%
,++,,
field id 2SCRP
Now Voyager -
World Travels & Treasures ... presenting an emmy award-winning program library with direct links to services hosted on the Internet and interactive television networks.